home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / copymove.swg / 0009_FAST Copy File.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  416 b   |  16 lines
  1. {│o│ I want to make my buffer For the BlockRead command as       │o║
  2. │o│ large as possible. When I make it above 11k, I get an       │o║
  3. │o│ error telling me "too many Variables."                      │o║
  4. Use dynamic memory, as in thanks a heap.
  5. }
  6.  
  7.  
  8. if memavail > maxint  { up to 65520 }
  9. then bufsize := maxint
  10. else bufsize := memavail;
  11. if i<128
  12. then Exitmsg('No memory')
  13. else getmem(buf,bufsize);
  14.  
  15.  
  16.